home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / debut140.arc / BLOAD.BAS < prev    next >
BASIC Source File  |  1990-07-15  |  2KB  |  32 lines

  1. '--------------------------------------------------------------------------
  2. '- BLOAD.BAS                                                              -
  3. '-                          Willie Robinson                               -
  4. '-                          2613 Louis Blvd                               -
  5. '-                          Hephzibah Ga 30815                            -
  6. '-                                                                        -
  7. '-         Example: How to Load a BSAVE File with Quick Basic             -
  8. '-                                                                        -
  9. '-                                                                        -
  10. '- UpDated 1 June 1990                                                  -
  11. '-                                                                        -
  12. '--------------------------------------------------------------------------
  13.  
  14. DEFINT A-Z
  15.  
  16. '-/Modify this Line by Entering Your Own Screens/-------------------------
  17. BSaveScreenToBeRetrived$ = "YourFile.BAS" '--Change "YourScrn"
  18.  
  19. '-/Get Video Mode/--------------------------------------------------------
  20. DEF SEG = &H40
  21. IF PEEK(&H49) = 7 THEN            '--PEEK to See Type of Monitor(Mono = 7)
  22.    DEF SEG = &HB000               '--MonoChrome Monitor(Memory Location)
  23.  ELSE
  24.    DEF SEG = &HB800               '--Color Monitor(Memory Location)
  25. END IF
  26.  
  27. '-/Load the Screen into the Video Memory/---------------------------------
  28. BLOAD BSaveScreenToBeRetrived$, &H0
  29.  
  30. END
  31.  
  32.